home *** CD-ROM | disk | FTP | other *** search
-
- public comnd, comand, prserr
- public intake, isdev, iseof, prompt, tolowr
- include ccsdef.h
-
- datas segment public 'datas'
- extrn flags:byte, trans:byte, taklev:byte, takadr:word, mcctab:byte
- extrn kstatus:byte
- extrn isccdos:byte ; Jun 25,1990
- comand cmdinfo <>
- cmer00 db cr,lf,'?Program internal error, recovering$'
- ccmer00 db cr,lf,'?│╠╨≥─┌▓┐┤φ╬≤,╒²╘┌╗╓╕┤╓«╓╨ $'
- cmer01 db cr,lf,'?More parameters are needed$'
- ccmer01 db cr,lf,'?╨Φ╥¬╕ⁿ╢α╡─▓╬╩² $'
- cmer02 db cr,lf,'?Word "$'
- ccmer02 db cr,lf,'?╫╓ "$'
- cmer03 db '" is not usable here$'
- ccmer03 db '" ▓╗─▄╩╣╙├ $'
- cmer04 db '" is ambiguous$'
- ccmer04 db '" ╥Γ╥σ▓╗├≈╚╖ $'
- cmer07 db cr,lf,'?Ignoring extra characters "$'
- ccmer07 db cr,lf,' ║÷┬╘╢ε═Γ╫╓╖√ "$'
- cmer08 db '"$'
- cmer09 db cr,lf,'?Text exceeded available buffer capacity$'
- ccmer09 db cr,lf,'?╒²╬─│¼│÷┐╔╙├╡─╗║│σ╟°╚▌┴┐$'
- cmin00 db ' Confirm with carriage return$'
- ccmin00 db ' ╙├╗╪│╡╚╖╚╧$'
- cmin01 db ' One of the following:',cr,lf,'$'
- ccmin01 db ' ╤í╘±╧┬╩÷╓«╥╗:',cr,lf,'$'
- stkmsg db cr,lf,bell,'?Exhausted work space! Circular definition?$'
- cstkmsg db cr,lf,bell,'? ├╗╙╨╣ñ╫≈┐╒╝Σ┴╦! ╩╟╖±╤¡╗╖╢¿╥σ ?$'
- crlf db cr,lf,'$'
- ctcmsg db 5eh,'C$'
- temp dw 0 ; temp (counts char/line so far)
- errflag db 0 ; non-zero to suppress cmcfrm errors
- kwstat db 0 ; get-keyword status
- cmdstk dw 0 ; stack pointer at comand call time
- intake db 0 ; last command line was from Take
- prevch db 0 ; previous char read by cmgetc
- noparse db 0 ; semicolons not special, if non-zero
- subcnt db 0 ; count of chars matched in '\%'
- datas ends
-